home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Night Owl 6
/
Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso
/
001a
/
ezzcomm.zip
/
MAGPIE.T
< prev
next >
Wrap
Text File
|
1991-02-16
|
912b
|
23 lines
: EZ-ZCOMM Copyright 1991 by Roger E. Hough, All Rights Reserved.
: Licensed for use at your own risk without fee. Altered versions,
: when distributed, must be clearly marked as altered and accompanied
: by the originals.
:
: Entry in %ZCUSER.IDS for MagPie: remote,password,handle
: remote: argument of "call" command
: password: signon password (required)
: handle: name or number. Assumed equal to "%n1 %n2" if omitted
:
ena -K!Z p?0 findq "\n%remote," %lib/%ZCUSER.ids
if ? split z0 , , "";if %z1 goto haveuser
pat;pat 24cp "rz\r**\030" "@rz -p";while c wait -f600
ife r nolog close;return
haveuser:
if !%z2 sets z2 "%n1 %n2"
set fpgup "@accept s0 Upload-Filename:;if %s0 sz %s0"
set fpgdn "@rz"
pat; pat 0c "Username or EXIT: " "%z2\r"
pat 1i "Password: " "%z1\r";wait -f30
pat;pat 24cp "rz\r**\030" "@rz -p";while c wait -f600
ife r nolog close;return